home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_all.zip / TI151.ASC < prev    next >
Text File  |  1992-08-12  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO GAMEWORKS                          NUMBER  :  151
  10.   VERSION : 1.00x
  11.        OS : PC-DOS
  12.      DATE : March 13, 1986                             PAGE  :  1/2
  13.     TITLE : SCORING UPDATE FOR BRIDGTE
  14.  
  15.  
  16.  
  17.  
  18.   The following are updates to the scoring in the BRIDGE program.
  19.  
  20.   Make  the modifications listed below,  and enter the current date
  21.   at the top of each module.
  22.  
  23.   All modifications must be made to the SCORE.BR include file  with
  24.   Turbo Pascal, version 3.0.
  25.  
  26.   1)   The first change involves a stray 1 that is added to the
  27.        overline score after a game is won. To rectify this:
  28.  
  29.        In procedure AddBonus:
  30.  
  31.        Change:
  32.  
  33.           if RubberBonus > 0 then
  34.            ...
  35.        To:
  36.  
  37.           if RubberBonus > 1 then
  38.            ...
  39.  
  40.    2)  The following changes correct the totals that are sent to
  41.        the script file:
  42.  
  43.       A) In procedure CompareTotals
  44.  
  45.         Change:
  46.  
  47.             N_S.Total := N_S.Total + RubberBonus;
  48.             if E_W.Total > N_S.Total then
  49.  
  50.         To:
  51.  
  52.             if E_W.Total > N_S.Total + RubberBonus then
  53.  
  54.         Change:
  55.  
  56.            E_W.Total := E_W.Total + RubberBonus;
  57.            if N_S.Total > E_W.Total then
  58.  
  59.         To:
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO GAMEWORKS                          NUMBER  :  151
  76.   VERSION : 1.00x
  77.        OS : PC-DOS
  78.      DATE : March 13, 1986                             PAGE  :  2/2
  79.     TITLE : SCORING UPDATE FOR BRIDGE
  80.  
  81.  
  82.  
  83.  
  84.            if N_S.Total > E_W.Total + RubberBonus then
  85.  
  86.      B) In procedure OutputGame delete both occurrences of:
  87.  
  88.            Total := Total + GameRecord[ThisGame];
  89.  
  90.      C) In procedure OutputTeamTotals:
  91.  
  92.        Change:
  93.  
  94.           with N_S do
  95.             Write(OutputFile, Total + OverLine:4 , '  |  ');
  96.           with E_W do
  97.             Write(OutputFile, Total + OverLine:4);
  98.  
  99.        To:
  100.  
  101.           with N_S do
  102.             Write(OutputFile, Total:4 , '  |  ');
  103.           with E_W do
  104.             Write(OutputFile, Total:4);
  105.  
  106.   DISCLAIMER: You have the right to use this technical information
  107.   subject to the terms of the No-Nonsense License Statement that
  108.   you received with the Borland product to which this information
  109.   pertains.
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.